Your Choice 3/Your Choice Software Collection 3.iso/prgmming/swag05/mouse.swg

Text File | 1994-09-22 | 2KB | 1 lines

SWAGOLX.EXE (c) 1993 GDSOFT  ALL RIGHTS RESERVED 00001                                                                           1      05-26-9406:17ALL                      FLORIAN ANSORGE          Mouse Detection          SWAG9405            16     l╚   {π(The Procedure Mouse_Check can be done shorter, but this one "remembers" aπmouseclick, so you can click the mouse, and at a later time call thisπprocedure and it will tell you the mouse-information!)ππ>-----------------------------            }ππPROGRAM Mouse_on_the_screen;ππUSES DOS,Graph;ππTYPEπ     MouseType = RECORDπ                   x, y, Button     : Word;π                   RButton, LButton : Boolean;π                 END;πVARπ     Reg                              : Registers;π     Mouse                            : Mousetype;ππPROCEDURE Show_Mouse;πBEGINπ  Reg.AX := 1;π  Intr($33,Reg);πEND;ππPROCEDURE Hide_Mouse;πBEGINπ  Reg.AX := 2;π  Intr($33,Reg);πEND;ππPROCEDURE SetMouseArea(XMin,YMin,XMax,YMax :Word);πBEGINπ  Reg.AX := 7;π  Reg.CX := XMin;π  Reg.DX := XMax;π  Intr($33,Reg);π  Reg.AX := 8;π  Reg.CX := YMin;π  Reg.DX := YMax;π  Intr($33,Reg);πEND;ππPROCEDURE Init_Mouse;πBEGINπ  Reg.AX := 0;π  Intr($33,Reg);π  SetMouseArea(0,0,GetMaxX,GetMaxY);π  Reg.AX := 4;π  Reg.CX := 100;π  Reg.DX := 100;π  Intr($33,Reg);πEND;ππPROCEDURE Mouse_Check;πBEGINπ  Reg.AX := 5;π  Reg.BX := 1;π  Intr($33,Reg);π  Mouse.RButton := Reg.BX > 0;π  Mouse.Button := Reg.AX;π  IF Mouse.RButton THEN Mouse.Button := 2;π  Mouse.X := Reg.CX;π  Mouse.Y := Reg.DX;ππ  IF NOT Mouse.RButtonπ    THEN Beginπ           Reg.AX := 5;π           Reg.BX := 0;π           Intr($33,Reg);π           Mouse.LButton := Reg.BX > 0;π           Mouse.Button := Reg.AX;π           IF Mouse.LButton THEN Mouse.Button := 1;π           Mouse.X := Reg.CX;π           Mouse.Y := Reg.DX;π         End;πEND;ππBEGINπ  {Init graphics screen here!}ππ  Init_Mouse;π  Show_Mouse;π  .                     {You have to finish this part yourself}π  .                     { ___     }π  .                     { |-lorian}π  Hide_Mouse;π {CloseGraph};πEND.π